home *** CD-ROM | disk | FTP | other *** search
/ Chip 2004 January / Chip_2004-01_cd1.bin / zkuste / sms / download / gate / sms213.exe / {app} / Defs / dcci_e.mls < prev    next >
Text File  |  2003-07-08  |  550b  |  27 lines
  1. if $send_nick = 1
  2.   set pay_add = ((length "$nick") - 1)
  3.   set first = 154 - $pay_add
  4. else
  5.   set pay_add = 0
  6.   set first = 154
  7. endif
  8.  
  9. if $length <= (157 - $pay_add)
  10.   set first = ($first + 3)
  11. endif
  12.  
  13. if $length <= $first
  14.   set msgnum = 1
  15.   set msgleft = ($first - $length)
  16.   set msgcount = $length
  17. else
  18.   set msgnum = (($length - $first + 1) div 156) + 2
  19.   set msgleft = $first + (156 * ($msgnum - 1)) - $length
  20.   set msgcount = 156 - $msgleft
  21. endif
  22.  
  23. set currency = "CZK"
  24. if $length <> 0
  25.   set price = ($msgnum * 1.50)
  26. endif
  27.